]ND

4 -1 roll 6 -1 roll $Blend 4 -1 roll 5 -1 roll $Blend}bind

{4 -1 roll 8 -1 roll $Blend 4 -1 roll 7 -1 roll $Blend

{3 -1 roll 6 -1 roll $Blend 3 -1 roll 5 -1 roll $Blend 3 -1 roll 4 -1 roll $Blend}bind

{exch 4 -1 roll $Blend exch 3 -1 roll $Blend}bind

{exch $Blend}bind

{}{}{}{}{}{}{}{}{}{}

}executeonly

ifelse

ifelse}

{dup /strtlck known{/strtlck get exec}{pop 3}ifelse}

{/startlock get exec}

dup /startlock known

{1183615869 systemdict /internaldict get exec

{pop 3}

{systemdict /internaldict known not

[{}{}{}

/OtherSubrs